home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / abitur / txt / linereader.def < prev    next >
Text File  |  1993-11-04  |  339b  |  17 lines
  1. DEFINITION MODULE LineReader;
  2.  
  3. FROM Dos IMPORT FileHandlePtr;
  4.  
  5.  
  6. PROCEDURE ReadALine(F: FileHandlePtr; VAR S: ARRAY OF CHAR;
  7.                     VAR EOFile: BOOLEAN);
  8. (* Liest eine Zeile ein. Die Zeile ist sicher keine Leerzeile, es sei
  9.  * denn, EOFile ist TRUE.
  10.  * Die ganze Zeile bis EOL wird ins S abgespeichert.
  11.  *)
  12.  
  13.  
  14.  
  15. END LineReader.
  16.  
  17.